home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / MapCheck.ray < prev    next >
Text File  |  1999-07-09  |  1KB  |  48 lines
  1. Viewpoint(1000, 2.2, -0.4)
  2. AmbientLight(128, 128, 128)
  3. LightSource(-1000, -500, 1000, 255, 255, 255)
  4. LightSource(1000, -500, 1000, 255, 255, 255)
  5. MappedCheckerboard(
  6.   ' The texture file name (absolute or relative)
  7.   D:\Images\People1.bmp,
  8.   1, 1,
  9.   -80, -80, 80,
  10.    80, -80, 80,
  11.   -80,  80, 80,
  12.   1.0,        ' Scale factor for ambient values
  13.   1.0,        ' Scale factor for diffuse values
  14.   20, 0.35,   ' Specular
  15.   0, 0, 0,    ' Reflected
  16.   10, 1, 1,   ' TransN, n1, n2
  17.   0, 0, 0     ' Transmitted
  18. )
  19. MappedCheckerboard(
  20.   ' The texture file name (absolute or relative)
  21.   D:\Images\dog2s.bmp,
  22.   1, 1,
  23.   -80, -80, -80,
  24.   -80, -80,  80,
  25.   -80,  80, -80,
  26.   1.0,        ' Scale factor for ambient values
  27.   1.0,        ' Scale factor for diffuse values
  28.   20, 0.35,   ' Specular
  29.   0, 0, 0,    ' Reflected
  30.   10, 1, 1,   ' TransN, n1, n2
  31.   0, 0, 0     ' Transmitted
  32. )
  33. MappedCheckerboard(
  34.   ' The texture file name (absolute or relative)
  35.   D:\Images\Bldg1s.bmp,
  36.   1, 1,
  37.   -80, -80, -80,
  38.    80, -80, -80,
  39.   -80, -80,  80,
  40.   1.0,        ' Scale factor for ambient values
  41.   1.0,        ' Scale factor for diffuse values
  42.   20, 0.35,   ' Specular
  43.   0, 0, 0,    ' Reflected
  44.   10, 1, 1,   ' TransN, n1, n2
  45.   0, 0, 0     ' Transmitted
  46. )
  47.  
  48.